home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / READSTRI.M < prev    next >
Encoding:
Text File  |  1989-09-23  |  454 b   |  22 lines
  1. (*$C-*)
  2. module readstri;(*$E mos *)
  3. from console import write, WriteString, writeln, read, readline,
  4.   busyread,keypressed;
  5. var ch: char; s: array [0..69] of char;
  6. begin
  7.     WriteLn;
  8.     write ('?');
  9.     readline (s);
  10.     WriteLn;
  11.     WriteString (s);
  12.     WriteLn;
  13.     WriteString ('CR? ');
  14.     repeat
  15.       busyread (ch)
  16.     until ch = chr(13);
  17.     WriteString ('ende...');
  18.     write ('.');
  19.     WriteLn;
  20.     read(ch);
  21. end readstri.
  22.